home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / GTPCPS44.LZH / PCP-QUIT.SCR < prev   
Text File  |  1988-12-30  |  477b  |  22 lines
  1. ;  GTPCP\V4.4   PCP-QUIT SCRIPT
  2. ;  (C) Perry Alexander - Dec 1988
  3. ;  GT Power Version 14.03
  4. ;  Script to Exit PCP
  5. ;
  6. CLEAR
  7. WRITELN  "    Changing back to the default dialing directory           "
  8. EXCH gt.dir
  9. WRITELN
  10. WRITELN  "    Disconnecting from PC Pursuit....please wait for beep.  "
  11. BREAK
  12. SENDLN "@"
  13. WAIT FOR "@"
  14. SENDLN "D"
  15. WAIT FOR "@"
  16. SENDLN "HANGUP"
  17. BEEP
  18. CLEAR
  19. WRITELN
  20. WRITELN  "    Disconnected .... press [Alt-D] for your default dir.  "
  21. WRITELN
  22.